Location: Phoenix, AZ – State Capital of Arizoan and Fifth most populous ciy in the United States.
Objectives: Increase the Urban forest to offset the Carbon-Di-Oxide (CO2) generated by air travel by providing Cost-Beneefit analysis of five most comman urban tree species in the area.
Data Used: Cost and Benefit of each of those species for a span 30 years.
Process: Investigate the number of trees needed to offest the CO2 generated by a flight. Then navigate through details of cost and benefit provided by these trees while presenting the user with Net Present Value of the tree investement.
---
title: "Cost-Benefit Analysis of Urban Forest"
output:
flexdashboard::flex_dashboard:
storyboard: false
social: menu
source: embed
---
```{r, message=FALSE, warning=FALSE, include=FALSE, echo=FALSE}
# install packags and library
# install.packages("leaflet")
#install.packages("flexdashboard")
#install.packages("shiny")
#install.packages("here")
#install.packages("dplyr")
library(shiny)
library(flexdashboard)
library(leaflet)
library(here)
library(dplyr)
```
```{r, message=FALSE, warning=FALSE, include=FALSE, echo=FALSE}
# load data
dat <- read.csv(here("data/trees-cost-benefit.csv"))
```
Introduction {.storyboard}
=========================================
### Cost Benefit Analysis of developing Urban Forest in Phoenix, AZ.
```{r}
leaflet() %>%
addTiles(options = providerTileOptions(minZoom = 8, maxZoom = 10)) %>%
addMarkers(lng=-112.0740, lat=33.4484, popup="City Center Phoenix, AZ")
```
***
**Location**: Phoenix, AZ -- State Capital of Arizoan and Fifth most populous ciy in the United States.
**Objectives**: Increase the Urban forest to offset the Carbon-Di-Oxide (CO2) generated by air travel by providing Cost-Beneefit analysis of five most comman urban tree species in the area.
**Data Used**: Cost and Benefit of each of those species for a span 30 years.
**Process**: Investigate the number of trees needed to offest the CO2 generated by a flight. Then navigate through details of cost and benefit provided by these trees while presenting the user with Net Present Value of the tree investement.
Select Carbon Generation to offset {data-orientation=rows}
=========================================
### Estimate the carbon generation and trees needed to offset it
Sidebar {.sidebar}
-------------------------------------
```{r}
## insert widget for user input
radioButtons("radio.flight", label = h4("Select an appropriate round trip flight"),
choices = list("Cross Counrty Flight (Approximately Six Hours Flight)" = "3700",
"Same Sector Flight (Approximately Three Hours Flight)" = "1210",
"Same Sector shorter Flight (Approximately Two hours Flight)" = "950"),
selected = c("3700")
)
#fluidPage(
# radioButtons("radio.flight", label = h3("Select an appropriate round trip flight"),
# choices = list("Cross Counrty Flight (Approximately Six Hours Flight)" = 1,
# "Same Sector Flight (Approximately Three Hours Flight) " = 2,
# "Same Sector shorter Flight (Approximately Two hours Flight)" = 3),
# selected = 1)
#,
# hr(),
# fluidRow(column(3, verbatimTextOutput("value")))
#)
## insert widget for tree selection by the user from the list provided
fluidPage(
radioButtons("radio.tree", label = h3("Select the type of tree to offset carbon generated"),
choices = list("Mesquite" = "mesquite",
"Blue Palo Verde " = "blue palo verde",
"Aleppo Pine" = "aleppo pine",
"Chinese Elm" = "chinese elm",
"Plao Brea" = "palo brea"),
selected = c("mesquite")),
# hr(),
# fluidRow(column(3, verbatimTextOutput("value")))
)
```
Outputs
-------------------------------------
### Number of trees needed to offset the carbon
```{r}
# tree.var<- dat %>%
# filter (species %in% input$radio.tree)
```
***
Analysis {.storyboard}
=========================================
### Details of cost and benefit of Properly installing a tree
```{r}
```
***
### Details of cost and benefit of conveniently installing a tree
```{r}
```
***
### Net present Value of Cost Benefit analysis
```{r}
```